home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_175_rename file.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  1.2 KB  |  39 lines
  1. global gCurrentList, gDialogAction, gRenameFileName, gPFname, glPFnames, gFile, glAlphabet, gLibPrefsFolder
  2.  
  3. on mouseUp me
  4.   gRenameFileName = EMPTY
  5.   gDialogAction = #RenameFile
  6.   setUpResponseDialog("Rename File")
  7.   runResponseDialog()
  8.   if (gRenameFileName = EMPTY) or (gRenameFileName = VOID) then
  9.     abort()
  10.   end if
  11.   set the stageColor to the stageColor
  12.   repeat with x = 1 to gRenameFileName.char.count
  13.     if getOne(glAlphabet, gRenameFileName.char[x]) = 0 then
  14.       alert("File and list names must contain only alphabetic characters and numbers without spaces.  Please reenter.")
  15.       abort()
  16.     end if
  17.   end repeat
  18.   if gRenameFileName.char.count > 31 then
  19.     alert("File names may not be longer than 31 characters.")
  20.     abort()
  21.   end if
  22.   repeat with y = 1 to glPFnames.count
  23.     if symbol(gRenameFileName) = symbol(getAt(glPFnames, y)) then
  24.       alert("The name is in use.  Please select another.")
  25.       abort()
  26.     end if
  27.   end repeat
  28.   gFile = new(xtra("fileio"))
  29.   openFile(gFile, gLibPrefsFolder & gPFname, 1)
  30.   delete(gFile)
  31.   gFile = 0
  32.   deleteOne(glPFnames, gPFname)
  33.   gPFname = gRenameFileName
  34.   append(glPFnames, gPFname)
  35.   WritePersonalFileNoDialog()
  36.   member("PFfile").text = gRenameFileName
  37.   member("PFlist").text = gCurrentList
  38. end
  39.